home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tools / mg / rexx / region.mg < prev    next >
Text File  |  1995-03-09  |  437b  |  20 lines
  1. /* Exercise the rexx-region command */
  2.  
  3. options failat 2
  4.  
  5. 'rexx-region' region
  6.  
  7. /* Now, change to an alternate buffer, and delete all text in it */
  8. 'switch-to-buffer-other-window region-test-output'
  9. 'end-of-buffer'
  10. 'beginning-of-buffer'
  11. 'kill-region'
  12.  
  13. /* Put the region from the other buffer into the current buffer */
  14. 'rexx-insert "We got' region.0 'lines!\n"'
  15.  
  16. do i = 1 to region.0
  17.     'rexx-insert 'slashquote(region.i, '\')
  18.     end
  19. exit 0
  20.